00100	TERNAL INTEGER ARRAY ISTK[0:ONE], ITBL[0:ONE], INEST[0:ONE] ;
00200	TERNAL STRING ARRAY  SSTK[0:ONE], STBL[0:ONE], SNEST[0:ONE] ;
00300	
00400	TERNAL SAFE INTEGER ARRAY CW[0:ONE];
00500	
00600	TERNAL INTEGER ARRAY	COMMENT "ALIASES" for Dynamic Arrays ;
00700		OLDPAGE, NEWPAGE, THISFRAME, MOLES,NMOLES, SHORT,NSHORT, OWLS,NOWLS, THISAREA, WAITBOX, AVAILREC[0:ONE],
00800		AA,NAA[0:ONE, 0:ONE] ;
00900	
01000	TERNAL INTEGER SYMBOL,ERRFLAG;
01100	
01200	TERNAL STRING ARRAY SYM[-1:ONE];
01300	TERNAL INTEGER ARRAY NUMBER[-1:ONE];
01400	
01500	DEFINE PRINT="OUTSTR(",MSG="&'15&'12)";
01600	
01700	DEFINE ie = "COMMENT" ;